home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CDSupport / UpDateCopy / Scripts / BackUpUp2 < prev    next >
Text File  |  1997-02-21  |  2KB  |  108 lines
  1. .k ""
  2.  
  3. set empty ""
  4. set dummy ""
  5.  
  6. set src dh0:          ;default source directory !
  7. set dest hd0:         ;default destination directory!
  8. set optall   ""
  9. set optdeep  ""
  10. set optquiet ""
  11. set optforce ""
  12. set optredir ""
  13.  
  14. echo "Executing BackUpUp. To accept default values press RETURN*N"
  15.  
  16. echo "  source (Default: $src )? " NOLINE
  17. set >nil: src ?
  18.  
  19. echo "  destination (Default: $dest)? " NOLINE
  20. set >nil: dest ?
  21.  
  22. echo "  Options"
  23. set dummy ""
  24. echo "    ALL (Default: y)? " NOLINE
  25. set >nil: dummy ?
  26. if "$dummy" eq "$empty"
  27.  set optall all
  28. endif
  29.  
  30. ask "    DEEP (Default: n)? "
  31. if warn
  32.  set optdeep deep
  33. endif
  34.  
  35. set dummy ""
  36. echo "    FORCE (Default: y)? " NOLINE
  37. set >nil: dummy ?
  38. if "$dummy" eq "$empty"
  39.  set optforce force
  40. endif
  41.  
  42. set dummy ""
  43. echo "    QUIET (Default: y)? " NOLINE
  44. set >nil: dummy ?
  45. if "$dummy" eq "$empty"
  46.  set optquiet quiet
  47. endif
  48.  
  49. ask "    PRINT (Default: n)? "
  50. if warn
  51.  set optredir ">prt:"
  52. endif
  53.  
  54. set dummy ""
  55. echo "*N*N  OK TO CONTINUE (Default: y)? " NOLINE
  56. set >nil: dummy ?
  57. if "$dummy" not eq "$empty"
  58.  echo "*N*NAbort!*N*N"
  59.  skip exit
  60. endif
  61.  
  62. date >env:start
  63. echo "*N          Started:" $start
  64.  
  65. echo "*N  Execution of the:"
  66. echo "      updatecopy " $src $dest $optall $optdeep $optforce $optquiet $optredir
  67. echo "  (abort pressing CTRL+C !)*N"
  68.  
  69. updatecopy $src $dest $optall $optdeep $optforce $optquiet $optredir
  70.  
  71. if $optquiet not eq quiet
  72.   echo "*N          Started:" $start
  73. endif
  74. date >env:stop
  75. echo "          Stopped:" $stop
  76.  
  77. unsetenv start
  78. unsetenv stop
  79.  
  80. set b1 .backdrop
  81. set b2 .backdrop-
  82. set b3 .backdrop.info
  83. set b4 .backdrop-.info
  84.  
  85. if exists $dest$b1
  86.   set dummy ""
  87.   echo "*N  Rename $dest$b1 as $dest$b2 (Default: y)? " NOLINE
  88.   set >nil: dummy ?
  89.   if "$dummy" eq "$empty"
  90.  
  91.     if exists $dest$b2
  92.       delete $dest$b2 force quiet
  93.     endif
  94.     rename $dest$b1 $dest$b2
  95.  
  96.     if exists $dest$b3
  97.       if exists $dest$b4
  98.         delete $dest$b4 force quiet
  99.       endif
  100.       rename $dest$b3 $dest$b4
  101.     endif
  102.  
  103.   endif
  104. endif
  105.  
  106. lab exit
  107. echo "*N*NFinished. Press close gadget for exit!"
  108.